#remotes::install_github("mrustl/tigo")
library(tigo)

datetime_min <- as.POSIXct("2021-03-15 14:30:00 CET")
tigo_data <- tigo::get_data_aggregate(datetime_min = datetime_min) 
#> No encoding supplied: defaulting to UTF-8.
#> 
#> ── Column specification ────────────────────────────────────────────────────────
#> cols(
#>   .default = col_character()
#> )
#> ℹ Use `spec()` for the full column specifications.
#> Warning: Expected 2 pieces. Missing pieces filled with `NA` in 73488 rows
#> [5, 11, 12, 15, 19, 20, 29, 30, 31, 34, 38, 39, 42, 44, 45, 47, 48, 49, 50,
#> 51, ...].
#> No encoding supplied: defaulting to UTF-8.
#> 
#> ── Column specification ────────────────────────────────────────────────────────
#> cols(
#>   .default = col_character()
#> )
#> ℹ Use `spec()` for the full column specifications.
#> Warning: Expected 2 pieces. Missing pieces filled with `NA` in 73488 rows
#> [5, 11, 12, 15, 19, 20, 29, 30, 31, 34, 38, 39, 42, 44, 45, 47, 48, 49, 50,
#> 51, ...].
#> No encoding supplied: defaulting to UTF-8.
#> 
#> ── Column specification ────────────────────────────────────────────────────────
#> cols(
#>   .default = col_character()
#> )
#> ℹ Use `spec()` for the full column specifications.
#> Warning: Expected 2 pieces. Missing pieces filled with `NA` in 192906 rows [1,
#> 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, ...].
#> No encoding supplied: defaulting to UTF-8.
#> 
#> ── Column specification ────────────────────────────────────────────────────────
#> cols(
#>   .default = col_character()
#> )
#> ℹ Use `spec()` for the full column specifications.
#> Warning: Expected 2 pieces. Missing pieces filled with `NA` in 73488 rows
#> [5, 11, 12, 15, 19, 20, 29, 30, 31, 34, 38, 39, 42, 44, 45, 47, 48, 49, 50,
#> 51, ...].
str(tigo_data)
#> tibble [561,988 × 9] (S3: tbl_df/tbl/data.frame)
#>  $ param      : chr [1:561988] "Pin" "Pin" "Pin" "Pin" ...
#>  $ DATETIME   : POSIXct[1:561988], format: "2021-03-15 14:30:00" "2021-03-15 14:30:00" ...
#>  $ cca_mac    : chr [1:561988] "04C05B900AF2" "04C05B900AF2" "04C05B900AF2" "04C05B900AF2" ...
#>  $ type       : chr [1:561988] "panels" "panels" "panels" "panels" ...
#>  $ id         : chr [1:561988] "A4" "A13" "A21" "B1" ...
#>  $ paramheader: chr [1:561988] "Pin" "Pin" "Pin" "Pin" ...
#>  $ value      : num [1:561988] 0 0 0 0 0 0 0 0 0 0 ...
#>  $ string     : chr [1:561988] "A" "A" "A" "B" ...
#>  $ position   : chr [1:561988] "4" "13" "21" "1" ...
#>  - attr(*, ".internal.selfref")=<externalptr>

interactive <- TRUE

P_in

tigo::plot_data(data = tigo_data, param = "Pin", interactive)

V_in

tigo::plot_data(data = tigo_data, param = "Vin", interactive)

I_in

tigo::plot_data(data = tigo_data, param = "Iin", interactive)

RSSI

tigo::plot_data(data = tigo_data, param = "RSSI", interactive)

String

Voltage

plot_string_sum(tigo_data)
plot_string_sum(tigo_data, ypara = "n")